home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #113 (1991-01)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #113 (1991-01)(Amiga User Group Deutschland e.V.).adf
/
Rätsel
/
neun
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-03
|
4KB
|
141 lines
'***********************************************************************
'* Detlef Kornatz *
'* Feuerbachstraße 6 *
'* D-4300 ESSEN 1 *
'***********************************************************************
SCREEN 2,320,258,5,1
WINDOW 2," Die neun Bäume ",,0,2
PALETTE 0,0.34,0.44,0
PALETTE 1,0.2,0.2,0.2
PALETTE 2,0.76,0.97,0
COLOR 14,0
LOCATE 1,1:PRINT "Zeichnen Sie 'vier' gerade Linien, die"
LOCATE 3,1:PRINT "die neun Bäume mit einander verbinden."
LOCATE 5,1:PRINT "Nicht absetzen oder zurückgehen,und Sie"
LOCATE 7,1:PRINT "müssen'nicht'am Ausgangspunkt ankommen.
anfang:
CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2
CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2
CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2
CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2
CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
LINE (10,215)-(60,240),4,bf
LINE (9,214)-(61,241),17,b
LINE (70,215)-(137,240),4,bf
LINE (69,214)-(138,241),17,b
LINE (150,215)-(200,240),4,bf
LINE (149,214)-(201,241),17,b
LINE (230,215)-(280,240),17,bf
LINE (229,214)-(281,241),10,b
COLOR 17,4
LOCATE 29,4:PRINT "NEU"
LOCATE 29,10:PRINT "ZEICHNEN"
LOCATE 29,20:PRINT "LÖSUNG"
COLOR 10,17
LOCATE 29,31:PRINT "ENDE"
taste:
ON MOUSE GOSUB mausdruck
MOUSE ON
WHILE 1 : WEND
mausdruck:
druck=MOUSE(0)
x=MOUSE(3) : y=MOUSE(4)
IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich
IF x>170 AND x<180 AND y>230 AND y<240 THEN GOSUB aufloe
IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB ende
RETURN
neu:
LINE (0,0)-(310,210),0,bf
CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2
CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2
CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2
CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2
CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
RETURN
aufloe:
LINE (0,0)-(310,210),0,bf
CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2
CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2
CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2
CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2
CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
FOR i=-0 TO 150 STEP 0.2
PSET (180-i,180),4
NEXT i
FOR i=-0 TO 150 STEP 0.2
PSET (30+i,180-i),4
NEXT i
FOR i=32 TO 180 STEP 0.2
PSET (180,i),4
NEXT i
FOR i=0 TO 120 STEP 0.2
PSET (180-i,180-i),4
NEXT i
RETURN
zeich:
LINE (0,0)-(310,210),0,bf
CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2
CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2
CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2
CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2
CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
ON MOUSE GOSUB linien:GOSUB mau
MOUSE ON
WHILE -1
WEND
linien:
Test=MOUSE(0)
x1=MOUSE(3) : y1=MOUSE(4)
PSET (x1,y1),4
WHILE MOUSE(0)<>0
WEND
LINE (x1,y1)-(MOUSE(5),MOUSE(6)),4
mau:
dr=MOUSE(0)
x=MOUSE(1) : y=MOUSE(2)
IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
IF x>170 AND x<180 AND y>230 AND y<240 THEN GOSUB aufloe
IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB ende
IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich
RETURN
ende:
WINDOW CLOSE 1
SCREEN CLOSE 1
SYSTEM
END
'**********************************************************************
' Detlef Kornatz
' Feuerbachstraße 6
' D-4300 ESSEN 1
'***********************************************************************